!===============================================================
!
! 10**n minimi locali (LEVY 10)
!
!===============================================================
!			VARIABLE BOUNDS
!===============================================================
!       -1.D+1               1.D+1         Limits of variable i

SUBROUTINE LEVY10(X,N,F)

      IMPLICIT NONE

      INTEGER          :: N
      DOUBLE PRECISION :: X(N), F

      DOUBLE PRECISION, PARAMETER :: PI = 3.1415923

      DOUBLE PRECISION :: F1
      INTEGER          :: I

      F1 = 0.0D0

      DO I=1,N-1
         F1 = F1 + ((((X(I)-1.D0)**2)*(1.D0+10.D0*(DSIN(PI*X(I+1)))**2)))
      END DO

      F = (PI/DBLE(N))*(10.D0*(DSIN(PI*X(1)))**2+F1+(X(N)-1.D0)**2)

      RETURN

END
